home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / game / actio / PaybackDemoUp3.lha / PaybackDemoUpdate3 / UpdatePbackDemo-Polski < prev    next >
Text File  |  1995-09-04  |  1KB  |  48 lines
  1. ; $VER: PaybackDemo Update Version 1.2 (23 February 2001)
  2. ; © James Daniels/Apex Designs
  3. ; Polish version Mariusz Danilewicz / ATO PL
  4.  
  5. (set #installdrawer (cat "Wybierz katalog, w którym zainstalowaîeô demo gry Payback."))
  6.  
  7. (set #installdrawer-help (cat "Wybierz katalog zawierajâcy wersjë demo gry Payback, którâ chcesz uaktualniê."))
  8.  
  9. (set #notfound (cat "\nTo nie wyglâda jak prawidîowo zainstalowana wersja demo gry Payback.\nProszë wybraê inny katalog."))
  10.  
  11. (set #install-all (cat "Uaktualniam pliki..."))
  12.  
  13. (set #finished-message (cat "\nTwoja wersja demo gry Payback zostaîa zaktualizowana pomyôlnie."))
  14.  
  15. (set destdir "RAM:")
  16.  
  17. (while (= (exists (tackon destdir "PaybackDemo.exe")) 0)
  18.   (
  19.     (set destdir
  20.       (askdir
  21.         (prompt #installdrawer)
  22.         (help #installdrawer-help)
  23.         (default "RAM:")
  24.         (disk)
  25.       )
  26.     )
  27.  
  28.     (if (= (exists (tackon destdir "PaybackDemo.exe")) 0)
  29.       (message #notfound)
  30.     )
  31.   )
  32. )
  33.  
  34. (complete 10)
  35.  
  36. (copyfiles
  37.     (prompt #install-all)
  38.     (source "Files/")
  39.     (pattern "#?")
  40.     (dest destdir)
  41. )
  42.  
  43. (complete 100)
  44.  
  45. (message #finished-message)
  46.  
  47. (set @default-dest destdir)
  48.